home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / DB / PO7 / PO7.DEI next >
Encoding:
Text File  |  1995-10-03  |  3.3 KB  |  99 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     po7.dei - V3 deinstall script for the Windows 95 PO7
  5.           parent product
  6.  
  7.   DESCRIPTION
  8.     This script deinstalls Windows 95 PO7 parent product
  9.  
  10.   OWNER
  11.     Rajesh Bansal
  12.  
  13.   MODIFIED    DD-MMM-YY  Reason
  14.    LMurphy    06/01/95     Modified for use with Windows 95 PO7
  15.    LMurphy    24-JAN-94  Modified for use with On-Line Help
  16.    rbansal    12-DEC-94  Created
  17. *****************************************************************************/
  18. {
  19.     { doit = execute("%installer_home%\win95.dei"); }
  20.     [
  21.         'UNBOUND_VARIABLE: signal('failure,instantiate(nls("instver_too_early2",
  22.                                                            "The version of the Installer currently running is %%installer_version%%. The product(s) you have chosen to deinstall were installed with a later version of the Installer. Please use a later version of the Installer to deinstall these Product(s).")));
  23.     ]
  24.   
  25.     installed_version = registry_version(current_registry);
  26.     display_registry_label = "%registry_label%";
  27.     
  28.     if (doit)
  29.     {
  30.  
  31.         /*************************************
  32.            Bind all NLS deinstall strings here...
  33.         **************************************/
  34.  
  35.     deinstall_components    = nls("deinstall_components", "Deinstalling %%registry_label%% Components...");
  36.         deinstall_unregister    = nls("deinstall_unregister", "Unregistering %%registry_label%%...");
  37.     unreference_dependencies= nls("unreference_dependencies", "Unreferencing %%registry_label%% Dependencies...");
  38.         deinstall_scripts           = nls("deinstall_scripts", "Removing %%registry_label%% Installation Scripts...");
  39.  
  40.     /************************************
  41.     Unregister & Deinstall Child Products
  42.     *************************************/
  43.  
  44.         ui_product(instantiate(display_registry_label));
  45.     ui_action(instantiate(deinstall_components));
  46.  
  47.     if(member(registration("selected_registries"), current_registry))
  48.     /* remove all child products if parent product was selected */
  49.     {
  50.         if (registered("w95rdbms72"))
  51.         {
  52.             dependent = registration("w95rdbms72");
  53.             unreference(dependent, current_registry);
  54.             unreference(dependent);
  55.             /* unset the child's self-reference */
  56.             deinstall(dependent);
  57.         }
  58.         if (registered("w95util72"))
  59.         {
  60.             dependent = registration("w95util72");
  61.             unreference(dependent, current_registry);
  62.             unreference(dependent);
  63.             deinstall(dependent);
  64.         }
  65.         if (registered("w95dbint72"))
  66.         {
  67.             dependent = registration("w95dbint72");
  68.             unreference(dependent, current_registry);
  69.             unreference(dependent);
  70.             deinstall(dependent);
  71.         }
  72.     }
  73.     /********************
  74.     Deinstall the product
  75.     *********************/
  76.  
  77.     ui_product(instantiate(display_registry_label));
  78.     ui_action(instantiate(deinstall_scripts));
  79.     remove(deinst);
  80.  
  81.         if (registered("w95hlpdoc72"))
  82.         {
  83.         dependent = registration("w95hlpdoc72");
  84.         unreference(dependent,current_registry);
  85.         deinstall(dependent);
  86.         }
  87.         
  88.     /*********************
  89.     Unregister the product
  90.     **********************/
  91.  
  92.         ui_product(instantiate(display_registry_label));
  93.     ui_action(instantiate(deinstall_unregister));
  94.     unregister(current_registry);
  95.  
  96.     permit_retry_operations = FALSE;
  97.     }
  98. }
  99.